home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 11 / PC World Interactive 11.iso / share / multimed / MAINACT / DATA1.CAB / Script_Files / selxfram.rex < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-05-04  |  1.6 KB  |  36 lines
  1. /**************************************************************
  2.  *                                                            *
  3.  *                   MainActor Rexx Script                    *
  4.  *                                                            *
  5.  *  Selects every xth frame. The interval is requested from   *
  6.  *  the user                                                  *
  7.  *                                                            *
  8.  *  Example: If x=4, frames 1,4,8,12,16 ... will be selected  *
  9.  *                                                            *
  10.  *  Last modified: 10/10/97, Written by: Markus Moenig        *
  11.  *                                                            *
  12.  **************************************************************/
  13.  
  14.   say "This script selects every xth frame in the currently loaded project."
  15.  
  16.   IF GetGlobalInfo("LOADEDPROJECTS")= "0" THEN DO     /* Check if there are */
  17.    BEGIN                                              /* any projects loaded */
  18.     say "No project loaded! Exiting ..."              /* Failed, exiting ... */
  19.     exit
  20.    END
  21.  
  22.   DeselectAll()                                       /* Deselects all frames */
  23.  
  24.   say "Please enter the interval:"
  25.   pull x                                              /* Request X to be entered */
  26.  
  27.   frames=GetProjectInfo("FRAMES")                     /* Total number of frames */
  28.  
  29.   i=1; SelectFrame( i )                               /* Select the first frame */
  30.   say "Selecting frames ..."
  31.   DO WHILE i*x <= frames                              /* Select the frames ... */
  32.    BEGIN
  33.      SelectFrame( i * x )
  34.      i=i+1
  35.    END
  36.   say "finished!"